! !GuanyueChen=====
! !debug
   if (rank==0) then       
    write(*,*)"运行到第",step,"步，  "
    write(*,*)"在rank：",rank
    write(*,*)"ey:",ey(step,:)
    CALL MPI_SEND(testflag, 1, MPI_INTEGER, rank+1, tag, comm, errcode)
  else
    CALL MPI_RECV(debug_temp, 1, MPI_INTEGER, rank-1, tag, comm, status, errcode)
    write(*,*)"运行到第",step,"步，  "
    write(*,*)"在rank：",rank
    write(*,*)"ey:",ey(step,:)
    if (rank<(nproc-1)) then 
      CALL MPI_SEND(testflag, 1, MPI_INTEGER, rank+1, tag, comm, errcode)
    endif
  endif
  if (step==testflag)then 
    pause
  endif